library(outliers)
set.seed(1)
s1 <- .Random.seed
y <- rnorm(100)

